home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
DOWS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
2KB
|
81 lines
{ --------------------------------------
DOWS returns day of week for any valid
Gregorian Date
-------------------------------------- }
Function DOWS( MM, DD, CCYY : Integer) : AnyString;
begin
InLine ( $1E/
$E8/$A8/$00/
$EB/$0D/$90/
$00/$03/$02/$05/$00/$03/
$05/$01/$04/$06/$02/$04/
$83/$C3/$03/
$8B/$FB/
$8B/$5E/$08/
$8B/$4E/$06/
$8B/$56/$04/
$83/$FB/$03/
$73/$01/
$4A/
$01/$DF/
$4F/
$2E/$02/$0D/
$8B/$C2/
$BB/$64/$00/
$30/$FF/
$F6/$F3/
$51/
$50/
$B1/$02/
$D2/$CC/
$B1/$06/
$D2/$EC/
$8A/$DC/
$58/
$B1/$02/
$D2/$C8/
$B1/$06/
$D2/$E8/
$B1/$02/
$8A/$D4/
$D2/$EA/
$59/
$00/$D0/
$B7/$05/
$F6/$E7/
$30/$FF/
$01/$D8/
$01/$C8/
$BA/$07/$00/
$F6/$F2/
$8A/$C4/
$30/$E4/
$E8/$42/$00/
$EB/$46/$90/
$53/$75/$6E/$64/$61/$79/$20/$20/$20/
$4D/$6F/$6E/$64/$61/$79/$20/$20/$20/
$54/$75/$65/$73/$64/$61/$79/$20/$20/
$57/$65/$64/$6E/$65/$73/$64/$61/$79/
$54/$68/$75/$72/$73/$64/$61/$79/$20/
$46/$72/$69/$64/$61/$79/$20/$20/$20/
$53/$61/$74/$75/$72/$64/$61/$79/$20/
$8B/$DC/
$36/$8B/$1F/
$C3/
$83/$C3/$03/
$8B/$F3/
$B9/$09/$00/
$F6/$E1/
$01/$C6/
$0E/
$1F/
$16/
$07/
$88/$4E/$0A/
$8D/$7E/$0B/
$FC/
$F3/$A4/
$1F/$5D);
end;